gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\include\ProductTypeList.asp

    <TABLE cellSpacing = "0" cellPadding = "0" width = "100%" border = "0" ID = "Table8">
	<TBODY>
		<TR>
			<TD height = "20" background = "images/titlebg.gif" align = "center"><strong>手机厂商</strong>
			</TD>
		</TR>
		<TR>
			<TD height = "5"></TD>
		</TR>
		<TR>
			<TD vAlign = "top">
				<table width = "95%" border = "0" align = "center" cellpadding = "0" cellspacing = "0" ID = "Table9">
					<tr>
						<td>
							<% call ShowManufacturer() %>
						</td>
					</tr>
				</table>
			</TD>
		</TR>
		<TR>
			<TD height = "5"></TD>
		</TR>
	</TBODY>
</TABLE>

<%
' ================================================= 
'过程名：ShowManufacturer
'作  用：显示商家名称列表（无修饰）
'参  数：无
' ================================================= 
Sub ShowManufacturer()
	dim strSQL, strTemp, rsObj, i
	
	Response.Write "<table width = '100%' border = '0' cellspacing = '0' cellpadding = '0' ID = 'Table3'>"
	strSQL = "SELECT * FROM ProductType WHERE SuperID = 0"
	i = 0
	set rsObj = conn.Execute(strSQL)
	do while not (rsObj.eof or err)
		Response.Write "<tr><td height  =  23>"
		Response.Write "<img src = images/cha1.gif>"
		Response.Write "<a href = Product.asp?producttype=" & rsObj("ID") & ">  " & rsObj("Name") & "</a>"
		Response.Write "</td></tr>"
		i = i+1
		if i>100 then exit do
		rsObj.MoveNext
	loop 
	'关闭集合，但不能关闭连接，因为其他地方可能要用
	Set rsObj = Nothing
	
	Response.Write "</table>"
end sub
%>